#lang racket
(require r5rs)

(define the-cons (cons 1 #f))

(set-cdr! the-cons the-cons)

(define (run-in-circles l)
  (+ (run-in-circles (cdr l))))

